home *** CD-ROM | disk | FTP | other *** search
/ Software 2000 / Software 2000 Volume 1 (Disc 1 of 2).iso / anim / a220.dms / in.adf / showbiz < prev   
Encoding:
Text File  |  1989-12-20  |  30.1 KB  |  1,400 lines
  1. REM Set up the initial configuration
  2.       SETBLACK 1:         REM Start with a blank screen
  3.       SPEED 1:            REM Each pause a 50th of a second
  4.  
  5.  
  6.       LOADFAST 16,":credits/creditscard"
  7.  
  8.       NEW 14,16
  9.       COPY 16,14
  10.       DISPLAY 14:         REM start by displaying screen 14
  11.       FADE 1,14,9:        REM fade in to creditcard 
  12.       PAUSE 100
  13.  
  14.       DRAWMODE 0:         REM use only the foreground colour
  15.       PEN 1,2
  16.       MARGINS 76,246
  17.       CENTER 1
  18.       MOVE 100,90
  19.       TEXT "Showbiz"
  20.       PAUSE 200
  21.       PEN 1,3
  22.       MOVE 100,100
  23.       TEXT "Produced and directed"
  24.       MOVE 100,110
  25.       TEXT "by Robert Corns"
  26.  
  27.       LOAD 3,":mouse/lobby1"
  28.       LOAD 5,":mouse/mouse1"
  29.       LOAD 6,":mouse/mouse2"
  30.       LOAD 7,":mouse/mouse3"
  31.       LOAD 8,":mouse/mouse4"
  32.       REM buffer 9 is a shared buffer between mouse5 and mouse 6
  33.       LOADFAST 10,":mouse/mouse5"
  34.       LOADFAST 11,":mouse/mouse6"
  35.  
  36.       buff=1:             REM dummy variable for screens 1 and 2
  37.       TRANSPARENT 1:      REM set the background colour to transparent
  38.       BLITDEST buff:      REM set BLIT destination screen
  39.       NEW 1,3:            REM initialize screen 1's palete to screen 3's
  40.       NEW 2,3:            REM dito
  41.       NEW 9,3:            REM dito
  42.       COPY 3,2:           REM 3 is the background scene
  43.       FADE 0,14,1:        REM fade out title
  44.       DISPLAY 2:          REM start by displaying 2
  45.       FREE 14
  46.       LOAD 4,":mouse/lobby2":  REM memory problems force this
  47.       FADE 1,2,5:         REM fade in lobby
  48.       PAUSE 200
  49. REM enter mouse
  50.       x = -160:           REM top left corner x position
  51.       y = 56:             REM top left corner y position
  52.  
  53.  
  54.       FOR cycnum = 1 TO 2:    REM cycnum is the mousewalk cycle number
  55.         FOR rat = 1 TO 12:    REM rat is the drawing number 
  56.           GOSUB 20:           REM refreshing the background
  57.           GOSUB 50:           REM blit the mouse
  58.           GOSUB 40:           REM displaying and upkeep
  59.           CLEAR
  60.           IF cycnum = 2 & rat = 6
  61.             GOTO 5
  62.           ENDIF
  63.         NEXT
  64.       NEXT
  65.  
  66.  
  67. 5 REM break from above loop to here
  68. REM scroll room with mouse
  69.       rat = 1:                REM reinitialize rat
  70.       leftedge = 0:           REM leftedge is lobby1's edge blitted
  71.       width = 320:            REM width is lobby1's width blitted
  72.       Leftedge = 320:         REM Leftedge is lobby2's edge blitted
  73.       Width = 0:              REM Leftedge is lobby2's width blitted
  74.       FOR frame = 1 TO 105:   REM frame is the frame number
  75.         GOSUB 30:             REM BLIT first and second rooms
  76.         GOSUB 60:             REM blit the mouse for a moving room
  77.         GOSUB 40:             REM displaying and upkeep
  78.         rat = rat + 1
  79.         IF rat > 12
  80.           rat = 1
  81.         ENDIF
  82.         CLEAR
  83.       NEXT
  84.  
  85. REM exit mouse
  86.       FOR cycnum = 1 TO 2:    REM cycnum is the mousewalk cycle number
  87.         FOR rat = 1 TO 12:    REM rat is the drawing number 
  88.           GOSUB 25:           REM refreshing the background
  89.           GOSUB 50:           REM blit the mouse
  90.           GOSUB 40:           REM displaying and upkeep
  91.           CLEAR
  92.         NEXT
  93.       NEXT
  94.       COPY 4,buff
  95.       DISPLAY buff
  96.       FREE 3
  97.       FREE 4
  98.       FREE 5
  99.       FREE 6
  100.       FREE 7
  101.       FREE 8
  102.       FREE 9
  103.       FREE 10
  104.       FREE 11
  105.       GOTO 100:              REM goto the next scene
  106.       END:                   REM not necessary but just in case
  107.  
  108.  
  109.  
  110. 20  REM refreshing the background for lobby1
  111.     COPY 3,buff
  112.     RETURN
  113.  
  114.  
  115.  
  116. 25  REM refreshing the background for lobby2
  117.     COPY 4,buff
  118.     RETURN
  119.  
  120.  
  121.  
  122. 30  REM a background track
  123.     BLIT 3,leftedge,0,0,0,width,200
  124.     BLIT 4,0,0,Leftedge,0,Width,200
  125.     leftedge = leftedge + 3
  126.     width = width - 3
  127.     Leftedge = Leftedge - 3
  128.     Width = Width + 3
  129.     RETURN
  130.  
  131.  
  132. 40  REM Displaying the picture, upgrading the buff and blit destination
  133.     REM and pausing
  134.     DISPLAY buff
  135.     buff=3-buff
  136.     BLITDEST buff
  137.     PAUSE 1
  138.     RETURN
  139.  
  140.  
  141. 50  REM blitting the mouse
  142.     IF rat = 1
  143.       x = x + 10
  144.       y = y + 4
  145.       BLIT 5,1,1,x,y,140,135
  146.     ENDIF
  147.     IF rat = 2
  148.       x = x + 10
  149.       y = y - 4
  150.       BLIT 5,170,1,x,y,145,140
  151.     ENDIF
  152.     IF rat = 3
  153.       x = x + 5
  154.       y = y - 4
  155.       BLIT 6,1,1,x,y,140,145
  156.     ENDIF
  157.     IF rat = 4
  158.       x = x + 9
  159.       BLIT 6,160,1,x,y,140,145
  160.     ENDIF
  161.     IF rat = 5
  162.       x = x + 3
  163.       y = y + 6
  164.       BLIT 7,1,1,x,y,140,140
  165.     ENDIF
  166.     IF rat = 6
  167.       x = x + 2
  168.       BLIT 7,170,1,x,y,135,140
  169.     ENDIF
  170.     IF rat = 7
  171.       x = x + 8
  172.       y = y + 2
  173.       BLIT 8,1,1,x,y,140,135
  174.     ENDIF
  175.     IF rat = 8
  176.       x = x + 14
  177.       y = y - 7
  178.       BLIT 8,165,1,x,y,150,145
  179.     ENDIF
  180.     IF rat = 9
  181.       COPY 10,9
  182.       x = x + 3
  183.       y = y -1
  184.       BLIT 9,1,1,x,y,150,145
  185.     ENDIF
  186.     IF rat = 10
  187.       x = x + 10
  188.       y = y - 1
  189.       BLIT 9,170,1,x,y,150,145
  190.     ENDIF
  191.     IF rat = 11
  192.       COPY 11,9
  193.       x = x + 3
  194.       y = y + 2
  195.       BLIT 9,1,1,x,y,150,145
  196.     ENDIF
  197.     IF rat = 12
  198.       x = x + 6
  199.       y = y + 3
  200.       BLIT 9,170,1,x,y,150,145
  201.     ENDIF
  202.     RETURN
  203.  
  204.  
  205. 60  REM blit mouse when room is moving
  206.     IF rat = 1
  207.       x = x + 5
  208.       y = y + 4
  209.       BLIT 5,1,1,x,y,140,130
  210.     ENDIF
  211.     IF rat = 2
  212.       x = x + 5
  213.       y = y - 4
  214.       BLIT 5,170,1,x,y,145,140
  215.     ENDIF
  216.     IF rat = 3
  217.       y = y - 4
  218.       BLIT 6,1,1,x,y,140,145
  219.     ENDIF
  220.     IF rat = 4
  221.       x = x + 4
  222.       BLIT 6,160,1,x,y,140,145
  223.     ENDIF
  224.     IF rat = 5
  225.       x = x - 2
  226.       y = y + 6
  227.       BLIT 7,1,1,x,y,140,140
  228.     ENDIF
  229.     IF rat = 6
  230.       x = x - 1
  231.       BLIT 7,170,1,x,y,135,140
  232.     ENDIF
  233.     IF rat = 7
  234.       x = x + 3
  235.       y = y + 2
  236.       BLIT 8,1,1,x,y,140,135
  237.     ENDIF
  238.     IF rat = 8
  239.       x = x + 9
  240.       y = y - 7
  241.       BLIT 8,165,1,x,y,150,145
  242.     ENDIF
  243.     IF rat = 9
  244.       COPY 10,9
  245.       x = x - 2
  246.       y = y -1
  247.       BLIT 9,1,1,x,y,150,145
  248.     ENDIF
  249.     IF rat = 10
  250.       x = x + 5
  251.       y = y - 1
  252.       BLIT 9,170,1,x,y,150,145
  253.     ENDIF
  254.     IF rat = 11
  255.       COPY 11,9
  256.       x = x - 2
  257.       y = y + 2
  258.       BLIT 9,1,1,x,y,150,145
  259.     ENDIF
  260.     IF rat = 12
  261.       x = x + 1
  262.       y = y + 3
  263.       BLIT 9,170,1,x,y,150,145
  264.     ENDIF
  265.     RETURN
  266.  
  267.  
  268.  
  269. 100  REM the second scene. Taking a seat in the theater
  270.  
  271.  
  272.  
  273.       LOAD 3,":mouse/Stage"
  274.       LOAD 4,":mouse/SecondRow"
  275.       FADE 0,buff,3:             REM fade out lobby
  276.       SETBLACK 1:                REM Start with a blank screen
  277.       DISPLAY 3:                 REM get the display off 1 or 2
  278.       FREE 1
  279.       FREE 2
  280.  
  281.       buff=1:             REM dummy variable for screens 1 and 2
  282.       BLITDEST buff:      REM set BLIT destination screen
  283.       NEW 1,3:            REM initialize screen 1's palete to screen 3's
  284.       NEW 2,3:            REM dito
  285.       COPY 3,2:           REM 3 is the background scene
  286.       FADE 1,2,5:         REM fade into theatre seats
  287.       PAUSE 200
  288.  
  289.       rat = 1:            REM the rat variable shows which mouse 
  290.                           REM is to be blitted
  291.       x = -75:            REM top left corner x position
  292.       y = 104:            REM top left corner y position
  293.       xinc = 7:           REM the x increment values 2 <= xinc <= 10 
  294.       yinc = 1:           REM the y increment values -4 <= yinc <= 4
  295.       oldyinc = -1:       REM x and y are correlated so an oldxinc 
  296.                           REM is not needed
  297.  
  298.       FOR  cycnum = 1 to 21:    REM cycnum is the cycle number
  299.         FOR rat = 1 to 3
  300.           x = x + xinc
  301.           y = 104 + yinc
  302.           GOSUB 110:         REM figure out new xinc and yinc  
  303.           GOSUB 120:         REM refreshing the background
  304.           IF rat = 1
  305.             BLIT 4,1,1,x,y,65,95
  306.           ENDIF
  307.           IF rat = 2
  308.             BLIT 4,80,1,x,y,70,100
  309.           ENDIF
  310.           IF rat = 3
  311.             BLIT 4,160,1,x,y,65,110
  312.           ENDIF
  313.           GOSUB 130:           REM refreshing the foreground
  314.           GOSUB 140:           REM displaying and upkeep
  315.           CLEAR
  316.         NEXT
  317.       NEXT
  318.       FOR f = 0 to 20 STEP 2
  319.         y = 100 + f
  320.         GOSUB 120
  321.         BLIT 4,245,1,200,y,60,110
  322.         GOSUB 130
  323.         GOSUB 140
  324.         IF f = 20
  325.           PAUSE 200
  326.           FADE 0,buff,6:       REM fade out from theatre seats
  327.         ENDIF
  328.         CLEAR
  329.       NEXT
  330.       FREE 3
  331.       FREE 4
  332.       GOTO 200:                REM goto the first act
  333.  
  334.  
  335.       END:                     REM just in case
  336.  
  337.  
  338.  
  339. 110 REM figure out new xinc and yinc
  340.     IF yinc = -4
  341.       oldyinc = -4
  342.       yinc = -3
  343.       xinc = 3
  344.     ENDIF
  345.     IF yinc = -3
  346.       IF oldyinc = -4
  347.         oldyinc = yinc
  348.         yinc = -1
  349.         xinc = 5
  350.       ELSE
  351.         oldyinc = yinc
  352.         yinc = -4
  353.         xinc = 2
  354.       ENDIF
  355.     ENDIF
  356.     IF yinc = -1
  357.       IF oldyinc = -3
  358.         oldyinc = yinc
  359.         yinc = 1
  360.         xinc = 7
  361.       ELSE
  362.         oldyinc = yinc
  363.         yinc = -3
  364.         xinc = 3
  365.       ENDIF
  366.     ENDIF
  367.     IF yinc = 1
  368.       IF oldyinc = -1
  369.         oldyinc = yinc
  370.         yinc = 4
  371.         xinc = 10
  372.       ELSE
  373.         oldyinc = yinc
  374.         yinc = -1
  375.         xinc = 5
  376.       ENDIF
  377.     ENDIF
  378.     IF yinc = 4
  379.       oldyinc = 4
  380.       yinc = 1
  381.       xinc = 7
  382.     ENDIF
  383.     RETURN
  384.  
  385. 120 REM refreshing the background
  386.     COPY 3,buff
  387.     RETURN
  388.  
  389.  
  390.  
  391. 130 REM moving the second row 
  392.     BLIT 4,0,127,0,127,319,73
  393.     RETURN
  394.  
  395.  
  396.  
  397. 140 REM Displaying the picture, upgrading the buff and blit destination
  398.     REM and pausing
  399.     DISPLAY buff
  400.     buff=3-buff
  401.     BLITDEST buff
  402.     PAUSE 3
  403.     RETURN
  404.  
  405.  
  406.  
  407.  
  408.  
  409. 200 REM first act
  410.  
  411.  
  412.       LOAD 3,":dance/stage1"
  413.       LOAD 20,":dance/Signs"
  414.  
  415.       DISPLAY 3:                   REM get the display off of buff
  416.       FREE 1
  417.       FREE 2
  418.       buff=1:                      REM dummy variable for screens 1 and 2
  419.       NEW 1,3:                     REM initialize screen palete 
  420.       NEW 2,3:                     REM dito
  421.       BLITDEST buff:               REM set BLIT destination screen
  422.       COPY 3,buff:                 REM first copy the stage
  423.       BLIT 20,0,0,36,37,110,125:   REM BLIT on ACT 1 sign
  424.       DISPLAY buff
  425.       FADE 1,buff,5:               REM fade onto curtain
  426.  
  427.       LOAD 4,":dance/curtain1"
  428.       LOAD 5,":dance/dancer1"
  429.       LOAD 6,":dance/dancer2"
  430.       LOAD 7,":dance/dancer3"
  431.       LOAD 8,":dance/dancer4"
  432.       LOAD 9,":dance/dancer5"
  433.       LOAD 10,":dance/dancer6"
  434.       LOAD 11,":dance/dancer7"
  435.  
  436.       buff=3-buff:                 REM to avoid a "flash" in the picture
  437.       BLITDEST buff
  438.       PAUSE 1
  439.       CLEAR
  440.  
  441. REM curtain down
  442.       FOR j = 20 to 200 step 4
  443.         i = 200 - j
  444.         COPY 3,buff:                 REM copy background to buff
  445.         BLIT 20,0,0,36,37,110,125:   REM BLIT on ACT 1 sign
  446.         BLIT 4,0,i,0,0,320,j:        REM BLIT the curtain
  447.         GOSUB 220:                   REM do a display now
  448.         PAUSE 1
  449.         IF j = 20
  450.           PAUSE 200
  451.         ENDIF
  452.         IF j = 200
  453.           PAUSE 100
  454.         ENDIF
  455.         CLEAR
  456.       NEXT
  457.        
  458. REM curtain up
  459.       FOR j = 200 to 20 step -4
  460.         i = 200 - j
  461.         COPY 3,buff:               REM copy background to buff
  462.         BLIT 5,0,0,35,50,50,110:   REM BLIT in girl add 10 to xdest below
  463.         BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
  464.         GOSUB 220:                 REM do a display now
  465.         PAUSE 1
  466.         IF j = 20
  467.           PAUSE 25
  468.         ENDIF
  469.         CLEAR
  470.       NEXT
  471.  
  472. REM now the girl struts
  473.  
  474.  
  475.       COPY 3,buff
  476.       BLIT 5,60,0,43,51,65,105
  477.       GOSUB 220
  478.       PAUSE 4
  479.       CLEAR
  480.  
  481.       COPY 3,buff
  482.       BLIT 5,125,0,23,50,75,110
  483.       GOSUB 220
  484.       PAUSE 4
  485.       CLEAR
  486.  
  487.       COPY 3,buff
  488.       BLIT 5,200,0,16,49,90,110
  489.       GOSUB 220
  490.       PAUSE 2
  491.       CLEAR
  492.  
  493.       COPY 3,buff
  494.       BLIT 6,0,0,33,45,70,110
  495.       GOSUB 220
  496.       PAUSE 2
  497.       CLEAR
  498.  
  499.       COPY 3,buff
  500.       BLIT 6,75,0,42,45,65,115
  501.       GOSUB 220
  502.       PAUSE 6
  503.       CLEAR
  504.  
  505.       COPY 3,buff
  506.       BLIT 6,150,0,46,45,88,115
  507.       GOSUB 220
  508.       PAUSE 2
  509.       CLEAR
  510.  
  511.       COPY 3,buff
  512.       BLIT 6,235,0,59,48,60,110
  513.       GOSUB 220
  514.       PAUSE 2
  515.       CLEAR
  516.  
  517.       COPY 3,buff
  518.       BLIT 7,0,0,65,46,70,110
  519.       GOSUB 220
  520.       PAUSE 2
  521.       CLEAR
  522.  
  523.       COPY 3,buff
  524.       BLIT 7,75,0,85,44,65,115
  525.       GOSUB 220
  526.       PAUSE 2
  527.       CLEAR
  528.  
  529.       COPY 3,buff
  530.       BLIT 7,140,0,60,45,100,115
  531.       GOSUB 220
  532.       PAUSE 6
  533.       CLEAR
  534.  
  535.       COPY 3,buff
  536.       BLIT 7,240,0,95,44,75,115
  537.       GOSUB 220
  538.       PAUSE 6
  539.       CLEAR
  540.  
  541.       COPY 3,buff
  542.       BLIT 8,0,0,122,51,75,110
  543.       GOSUB 220
  544.       PAUSE 2
  545.       CLEAR
  546.  
  547.       COPY 3,buff
  548.       BLIT 8,70,0,129,48,81,110
  549.       GOSUB 220
  550.       PAUSE 2
  551.       CLEAR
  552.  
  553.       COPY 3,buff
  554.       BLIT 8,150,0,138,44,90,115
  555.       GOSUB 220
  556.       PAUSE 2
  557.       CLEAR
  558.  
  559.       COPY 3,buff
  560.       BLIT 8,240,0,148,43,80,115
  561.       GOSUB 220
  562.       PAUSE 4
  563.       CLEAR
  564.  
  565.       COPY 3,buff
  566.       BLIT 9,0,0,165,50,55,110
  567.       GOSUB 220
  568.       PAUSE 2
  569.       CLEAR
  570.  
  571.       COPY 3,buff
  572.       BLIT 9,60,0,176,49,64,110
  573.       GOSUB 220
  574.       PAUSE 2
  575.       CLEAR
  576.  
  577.       COPY 3,buff
  578.       BLIT 9,123,0,174,42,75,115
  579.       GOSUB 220
  580.       PAUSE 2
  581.       CLEAR
  582.  
  583.       COPY 3,buff
  584.       BLIT 9,200,0,163,39,90,120
  585.       GOSUB 220
  586.       PAUSE 6
  587.       CLEAR
  588.  
  589.       COPY 3,buff
  590.       BLIT 10,0,0,170,43,90,115
  591.       GOSUB 220
  592.       PAUSE 6
  593.       CLEAR
  594.  
  595.       COPY 3,buff
  596.       BLIT 10,90,0,191,43,100,115
  597.       GOSUB 220
  598.       PAUSE 6
  599.       CLEAR
  600.  
  601.       COPY 3,buff
  602.       BLIT 10,190,0,185,42,95,120
  603.       GOSUB 220
  604.       PAUSE 10
  605.       CLEAR
  606.  
  607.       COPY 3,buff
  608.       BLIT 11,0,0,186,45,85,115
  609.       GOSUB 220
  610.       PAUSE 50
  611.       CLEAR
  612.  
  613. REM curtain down
  614.       FOR j = 20 to 200 step 4
  615.         i = 200 - j
  616.         COPY 3,buff:                 REM copy background to buff
  617.         BLIT 11,0,0,186,45,85,115:   REM BLIT in girl 
  618.         BLIT 4,0,i,0,0,320,j:        REM BLIT the curtain
  619.         GOSUB 220:                   REM do a display now
  620.         PAUSE 1
  621.         IF j = 200
  622.           PAUSE 100
  623.         ENDIF
  624.         CLEAR
  625.       NEXT
  626.  
  627. REM curtain up
  628.       FOR j = 200 to 20 step -4
  629.         i = 200 - j
  630.         COPY 3,buff:                   REM copy background to buff
  631.         BLIT 20,110,0,37,37,110,125:   REM BLIT in ACT 2 sign 
  632.         BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
  633.         GOSUB 220:                     REM do a display now
  634.         PAUSE 1
  635.         CLEAR
  636.       NEXT
  637.  
  638.       FREE 4
  639.       FREE 5
  640.       FREE 6
  641.       FREE 7
  642.       FREE 8
  643.       FREE 9
  644.       FREE 10
  645.       FREE 11
  646.       GOTO 300:            REM goto the second act
  647.  
  648.  
  649.       END
  650.  
  651. 220  DISPLAY buff
  652.      buff=3-buff
  653.      BLITDEST buff
  654.      RETURN
  655.  
  656.  
  657.  
  658.  
  659. 300 REM now we do the flying sheep bit
  660.  
  661.       LOAD 4,":sheep/curtain2"
  662.       LOAD 5,":sheep/springlamb1"
  663.       LOAD 6,":sheep/springlamb2"
  664.       LOAD 7,":sheep/stage2"
  665.  
  666. REM curtain down
  667.       FOR j = 20 to 200 step 4
  668.         i = 200 - j
  669.         COPY 3,buff:                   REM copy background to buff
  670.         BLIT 20,110,0,37,37,110,125:   REM BLIT in ACT 2 sign 
  671.         BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
  672.         GOSUB 320:                     REM do a display now
  673.         PAUSE 1
  674.         IF j = 20
  675.           PAUSE 200
  676.         ENDIF
  677.         IF j = 200
  678.           PAUSE 100
  679.         ENDIF
  680.         CLEAR
  681.       NEXT
  682.  
  683.  
  684.       sheep = 1:                   REM a counter for the sheep
  685.        
  686. REM curtain up
  687.       FOR j = 200 to 20 step -4
  688.         i = 200 - j
  689.         COPY 7,buff:               REM copy background to buff
  690.         GOSUB 330:                 REM BLIT the sheep
  691.         BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
  692.         GOSUB 320:                 REM do a display now
  693.         PAUSE 1
  694.         CLEAR
  695.         sheep = sheep + 1
  696.         IF sheep > 10
  697.           sheep = 1
  698.         ENDIF
  699.       NEXT
  700.  
  701.  
  702. REM some "bookkeeping"
  703.     FREE 3
  704.     NEW 3,7
  705.     COPY 7,3
  706.     FREE 7
  707.  
  708. REM now the sheep springs on the open stage
  709.     blink = 1
  710.     squint = 1
  711.     FOR count = 1 to 200
  712.       COPY 3,buff:                 REM copy the background to buff
  713.       GOSUB 330:                   REM BLIT the sheep
  714.       IF sheep = 9 & blink = 4
  715.         BLIT 6,9,79,152,25,9,9:    REM start a blink
  716.       ENDIF
  717.       IF sheep = 10 & blink = 4
  718.         BLIT 6,25,182,150,22,12,8
  719.       ENDIF
  720.       IF sheep = 1 & blink = 1
  721.         BLIT 5,34,68,151,25,11,7
  722.       ENDIF
  723.       IF sheep = 2 & blink = 1
  724.         BLIT 5,133,68,151,30,11,9
  725.       ENDIF
  726.       IF sheep = 6 & squint = 2
  727.         BLIT 5,112,188,152,116,18,7
  728.       ENDIF
  729.       GOSUB 320:                   REM do a display now
  730.       PAUSE 1
  731.       CLEAR
  732.       sheep = sheep + 1
  733.       IF sheep > 10
  734.         sheep = 1
  735.         squint = 3 - squint
  736.         blink = blink + 1
  737.         IF blink > 4
  738.           blink = 1
  739.         ENDIF
  740.       ENDIF
  741.     NEXT
  742.  
  743.  
  744. REM now the curtain comes down
  745.       FOR j = 20 to 200 step 4
  746.         i = 200 - j
  747.         COPY 3,buff:               REM copy background to buff
  748.         GOSUB 330:                 REM BLIT the sheep
  749.         BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
  750.         GOSUB 320:                 REM do a display now
  751.         PAUSE 1
  752.         IF j = 200
  753.           PAUSE 100
  754.         ENDIF
  755.         CLEAR
  756.         sheep = sheep + 1
  757.         IF sheep > 10
  758.           sheep = 1
  759.         ENDIF
  760.       NEXT
  761.  
  762.  
  763. REM curtain up
  764.       FOR j = 200 to 20 step -4
  765.         i = 200 - j
  766.         COPY 3,buff:                   REM copy background to buff
  767.         BLIT 20,220,0,41,37,100,125:   REM BLIT in ACT 3 sign 
  768.         BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
  769.         GOSUB 220:                     REM do a display now
  770.         PAUSE 1
  771.         CLEAR
  772.       NEXT
  773.  
  774.  
  775.       GOTO 400:                        REM the 3rd act
  776.       END
  777.  
  778.  
  779.  
  780. 320  DISPLAY buff
  781.      buff=3-buff
  782.      BLITDEST buff
  783.      RETURN
  784.  
  785.  
  786.  
  787. 330 REM blit the sheep and the trampoline
  788.     IF sheep = 1
  789.       BLIT 6,100,0,80,120,185,25:        REM tramp1
  790.       BLIT 5,0,0,120,15,75,65:           REM 1st lamb
  791.     ENDIF
  792.  
  793.     IF sheep = 2
  794.       BLIT 6,100,0,80,120,185,25:        REM tramp1
  795.       BLIT 5,80,0,115,22,80,65:          REM 2nd lamb
  796.     ENDIF
  797.  
  798.     IF sheep = 3
  799.       BLIT 6,100,0,80,120,185,25:        REM tramp1
  800.       BLIT 5,165,0,123,30,75,70:         REM 3rd lamb
  801.     ENDIF
  802.  
  803.     IF sheep = 4
  804.       BLIT 6,100,0,80,120,185,25:        REM tramp1
  805.       BLIT 5,245,0,130,53,60,75:         REM 4th lamb
  806.     ENDIF
  807.  
  808.     IF sheep = 5
  809.       BLIT 6,110,26,85,120,175,28:       REM tramp2
  810.       BLIT 5,0,100,122,63,70,80:         REM 5th lamb
  811.     ENDIF
  812.  
  813.     IF sheep = 6
  814.       BLIT 6,120,55,100,105,115,30:      REM tramp3a
  815.       BLIT 5,75,130,117,100,95,40:       REM 6th lamb
  816.       BLIT 6,105,85,90,125,150,25:       REM tramp3a
  817.     ENDIF
  818.  
  819.     IF sheep = 7
  820.       BLIT 6,115,110,96,108,150,40:      REM tramp4
  821.       BLIT 5,175,105,125,56,60,75:       REM 7th lamb
  822.     ENDIF
  823.  
  824.     IF sheep = 8
  825.       BLIT 6,125,150,95,113,155,35:      REM tramp5
  826.       BLIT 5,255,90,133,26,45,95:        REM 8th lamb
  827.     ENDIF
  828.  
  829.     IF sheep = 9
  830.       BLIT 6,110,26,85,120,175,28:       REM tramp2
  831.       BLIT 6,0,0,123,20,70,75:           REM 9th lamb
  832.     ENDIF
  833.  
  834.     IF sheep = 10
  835.       BLIT 6,100,0,80,120,185,25:        REM tramp1
  836.       BLIT 6,0,110,115,16,80,65:         REM 10th lamb
  837.     ENDIF
  838.     RETURN
  839.  
  840.  
  841.  
  842.  
  843.  
  844. 400 REM now comes "The Dance of Seconds" act
  845.  
  846.  
  847.       LOAD 4,":croc/curtain3"
  848.       LOAD 5,":croc/ballet01"
  849.       LOAD 6,":croc/ballet02"
  850.       LOAD 7,":croc/ballet03"
  851.       LOAD 8,":croc/ballet04"
  852.       LOAD 9,":croc/ballet05"
  853.       LOAD 10,":croc/ballet06"
  854.       LOAD 11,":croc/stage3"
  855.       LOADFAST 21,":croc/ballet07"
  856.       LOADFAST 22,":croc/ballet08"
  857.       LOADFAST 23,":croc/ballet09"
  858.       LOADFAST 24,":croc/ballet10"
  859.  
  860.  
  861. REM curtain down
  862.       FOR j = 20 to 200 step 4
  863.         i = 200 - j
  864.         COPY 3,buff:                   REM copy background to buff
  865.         BLIT 20,220,0,41,37,100,125:   REM BLIT in ACT 3 sign 
  866.         BLIT 4,0,i,0,0,320,j:          REM BLIT the curtain
  867.         GOSUB 420:                     REM do a display now
  868.         PAUSE 1
  869.         IF j = 20
  870.           PAUSE 200
  871.         ENDIF
  872.         IF j = 200
  873.           PAUSE 100
  874.         ENDIF
  875.         CLEAR
  876.       NEXT
  877.  
  878.  
  879.  
  880.        
  881. REM curtain up
  882.       FOR j = 200 TO 20 step -4
  883.         i = 200 - j
  884.         COPY 11,buff:              REM copy background to buff
  885.         BLIT 4,0,i,0,0,320,j:      REM BLIT the curtain
  886.         GOSUB 420:                 REM do a display now
  887.         PAUSE 1
  888.         IF j = 20
  889.           PAUSE 25
  890.         ENDIF
  891.         CLEAR
  892.       NEXT
  893.  
  894.  
  895. REM some more bookkeeping
  896.       FREE 3
  897.       NEW 3,11
  898.       COPY 11,3
  899.       FREE 11
  900.  
  901. REM now the croc dances 
  902.  
  903.  
  904.       COPY 3,buff:                   REM copy the background
  905.       BLIT 5,0,0,-46,39,95,90:       REM BLIT croc
  906.       BLIT 10,128,0,-2,0,60,200:     REM BLIT side curtain
  907.       GOSUB 420:                     REM do a display now
  908.       PAUSE 2
  909.       CLEAR
  910.  
  911.       COPY 3,buff
  912.       BLIT 5,0,0,-17,35,95,90:       REM BLIT croc
  913.       BLIT 5,0,188,21,139,35,10:     REM BLIT shadow
  914.       BLIT 10,128,0,-2,0,60,200:     REM BLIT side curtain
  915.       GOSUB 420:                     REM do a display now
  916.       PAUSE 2
  917.       CLEAR
  918.  
  919.       COPY 3,buff
  920.       BLIT 5,0,0,12,33,95,90:        REM BLIT croc
  921.       BLIT 5,0,188,50,139,35,10:     REM BLIT shadow
  922.       BLIT 10,128,0,-2,0,60,200:     REM BLIT side curtain
  923.       GOSUB 420:                     REM do a display now
  924.       PAUSE 2
  925.       CLEAR
  926.  
  927.       COPY 3,buff
  928.       BLIT 5,0,0,41,37,95,90:        REM BLIT croc
  929.       BLIT 5,0,188,79,139,35,10:     REM BLIT shadow
  930.       GOSUB 420:                     REM do a display now
  931.       PAUSE 2
  932.       CLEAR
  933.  
  934.       COPY 3,buff
  935.       BLIT 5,0,0,70,37,95,90:        REM BLIT croc
  936.       BLIT 5,0,188,108,139,35,10:    REM BLIT shadow
  937.       GOSUB 420:                     REM do a display now
  938.       PAUSE 2
  939.       CLEAR
  940.  
  941.       COPY 3,buff
  942.       BLIT 5,0,0,97,55,95,90:        REM BLIT croc
  943.       BLIT 5,0,188,137,139,35,10:    REM BLIT shadow
  944.       GOSUB 420:                     REM do a display now
  945.       PAUSE 4
  946.       CLEAR
  947.  
  948.       COPY 3,buff
  949.       BLIT 5,94,0,94,67,120,90:      REM BLIT croc
  950.       GOSUB 420:                     REM do a display now
  951.       PAUSE 4
  952.       CLEAR
  953.  
  954.       COPY 3,buff
  955.       BLIT 5,213,0,113,72,107,90:    REM BLIT croc
  956.       GOSUB 420:                     REM do a display now
  957.       PAUSE 4
  958.       CLEAR
  959.  
  960.       COPY 3,buff
  961.       BLIT 5,0,89,130,61,85,100:     REM BLIT croc
  962.       GOSUB 420:                     REM do a display now
  963.       PAUSE 4
  964.       CLEAR
  965.  
  966.       COPY 3,buff
  967.       BLIT 5,84,89,141,53,100,100:   REM BLIT croc
  968.       GOSUB 420:                     REM do a display now
  969.       PAUSE 4
  970.       CLEAR
  971.  
  972.       COPY 3,buff
  973.       BLIT 5,183,89,137,52,105,100:  REM BLIT croc
  974.       GOSUB 420:                     REM do a display now
  975.       PAUSE 4
  976.       CLEAR
  977.  
  978.       COPY 3,buff
  979.       BLIT 6,0,0,120,68,80,86:       REM BLIT croc
  980.       GOSUB 420:                     REM do a display now
  981.       PAUSE 4
  982.       CLEAR
  983.  
  984.       COPY 3,buff
  985.       BLIT 6,79,0,116,68,65,86:      REM BLIT croc
  986.       GOSUB 420:                     REM do a display now
  987.       PAUSE 4
  988.       CLEAR
  989.  
  990.       COPY 3,buff
  991.       BLIT 6,143,0,84,71,120,86:     REM BLIT croc
  992.       GOSUB 420:                     REM do a display now
  993.       PAUSE 4
  994.       CLEAR
  995.  
  996.       COPY 3,buff
  997.       BLIT 6,0,85,74,69,110,95:      REM BLIT croc
  998.       GOSUB 420:                     REM do a display now
  999.       PAUSE 4
  1000.       CLEAR
  1001.  
  1002.       COPY 3,buff
  1003.       BLIT 6,109,85,74,72,110,95:    REM BLIT croc
  1004.       GOSUB 420:                     REM do a display now
  1005.       PAUSE 4
  1006.       CLEAR
  1007.  
  1008.       COPY 3,buff
  1009.       BLIT 6,218,85,66,79,100,95:    REM BLIT croc
  1010.       GOSUB 420:                     REM do a display now
  1011.       PAUSE 4
  1012.       CLEAR
  1013.  
  1014.       COPY 3,buff
  1015.       BLIT 7,0,0,56,83,88,85:        REM BLIT croc
  1016.       GOSUB 420:                     REM do a display now
  1017.       PAUSE 4
  1018.       CLEAR
  1019.  
  1020.       COPY 3,buff
  1021.       BLIT 7,87,0,44,64,85,102:      REM BLIT croc
  1022.       GOSUB 420:                     REM do a display now
  1023.       PAUSE 4
  1024.       CLEAR
  1025.  
  1026.       COPY 3,buff
  1027.       BLIT 7,171,0,51,51,75,115:     REM BLIT croc
  1028.       GOSUB 420:                     REM do a display now
  1029.       PAUSE 4
  1030.       CLEAR
  1031.  
  1032.       COPY 3,buff
  1033.       BLIT 7,244,0,52,39,75,125:     REM BLIT croc
  1034.       GOSUB 420:                     REM do a display now
  1035.       PAUSE 4
  1036.       CLEAR
  1037.  
  1038.       COPY 3,buff
  1039.       BLIT 7,0,84,62,34,75,115:      REM BLIT croc
  1040.       BLIT 7,74,185,99,152,25,15:    REM BLIT shadow
  1041.       GOSUB 420:                     REM do a display now
  1042.       PAUSE 4
  1043.       CLEAR
  1044.  
  1045.       COPY 3,buff
  1046.       BLIT 8,0,0,95,31,68,110:       REM BLIT croc
  1047.       BLIT 8,275,140,113,150,40,15:  REM BLIT shadow
  1048.       GOSUB 420:                     REM do a display now
  1049.       PAUSE 4
  1050.       CLEAR
  1051.  
  1052.       COPY 3,buff
  1053.       BLIT 8,67,0,108,42,90,110:     REM BLIT croc
  1054.       BLIT 8,275,175,127,151,40,15:  REM BLIT shadow
  1055.       GOSUB 420:                     REM do a display now
  1056.       PAUSE 4
  1057.       CLEAR
  1058.  
  1059.       COPY 3,buff
  1060.       BLIT 8,156,0,140,62,80,110:    REM BLIT croc
  1061.       GOSUB 420:                     REM do a display now
  1062.       PAUSE 4
  1063.       CLEAR
  1064.  
  1065.       COPY 3,buff
  1066.       BLIT 8,235,0,144,66,74,110:    REM BLIT croc
  1067.       GOSUB 420:                     REM do a display now
  1068.       PAUSE 4
  1069.       CLEAR
  1070.  
  1071.       COPY 3,buff
  1072.       BLIT 8,0,109,147,73,85,91:     REM BLIT croc
  1073.       GOSUB 420:                     REM do a display now
  1074.       PAUSE 4
  1075.       CLEAR
  1076.  
  1077.       COPY 3,buff
  1078.       BLIT 8,84,109,136,74,90,91:    REM BLIT croc
  1079.       GOSUB 420:                     REM do a display now
  1080.       PAUSE 4
  1081.       CLEAR
  1082.  
  1083.       COPY 3,buff
  1084.       BLIT 8,173,109,123,76,96,91:   REM BLIT croc
  1085.       GOSUB 420:                     REM do a display now
  1086.       PAUSE 4
  1087.       CLEAR
  1088.  
  1089.       COPY 3,buff
  1090.       BLIT 9,0,0,104,85,115,90:      REM BLIT croc
  1091.       GOSUB 420:                     REM do a display now
  1092.       PAUSE 4
  1093.       CLEAR
  1094.  
  1095.       COPY 3,buff
  1096.       BLIT 9,114,0,118,76,105,90:    REM BLIT croc
  1097.       GOSUB 420:                     REM do a display now
  1098.       PAUSE 4
  1099.       CLEAR
  1100.  
  1101.       COPY 3,buff
  1102.       BLIT 9,218,0,125,73,102,90:    REM BLIT croc
  1103.       GOSUB 420:                     REM do a display now
  1104.       PAUSE 4
  1105.       CLEAR
  1106.  
  1107.       COPY 3,buff
  1108.       BLIT 9,0,89,128,71,105,92:     REM BLIT croc
  1109.       GOSUB 420:                     REM do a display now
  1110.       PAUSE 4
  1111.       CLEAR
  1112.  
  1113.       COPY 3,buff
  1114.       BLIT 9,104,89,128,71,120,92:   REM BLIT croc
  1115.       GOSUB 420:                     REM do a display now
  1116.       PAUSE 4
  1117.       CLEAR
  1118.  
  1119.       COPY 3,buff
  1120.       BLIT 10,0,0,138,78,130,85:     REM BLIT croc
  1121.       GOSUB 420:                     REM do a display now
  1122.       PAUSE 4
  1123.       CLEAR
  1124.  
  1125.       COPY 3,buff
  1126.       BLIT 10,0,84,134,78,130,85:    REM BLIT croc
  1127.       GOSUB 420:                     REM do a display now
  1128.       PAUSE 100 
  1129.       CLEAR
  1130.  
  1131.  
  1132.       COPY 21,5:                     REM copy last drawings from
  1133.       COPY 22,6:                     REM fast to chip ram
  1134.       COPY 23,7
  1135.       COPY 24,8
  1136.  
  1137.  
  1138.  
  1139.       COPY 3,buff
  1140.       BLIT 10,195,10,138,84,115,80:     REM BLIT croc
  1141.       GOSUB 420:                        REM do display
  1142.       PAUSE 4
  1143.       CLEAR
  1144.  
  1145.       COPY 3, buff
  1146.       BLIT 5,0,10,269,59,170,120:       REM BLIT hippo
  1147.       BLIT 5,268,0,268,0,52,200:        REM BLIT right curtain
  1148.       BLIT 5,195,0,195,0,60,22:         REM BLIT top curtain
  1149.       BLIT 10,55,190,205,152,30,10:     REM BLIT croc's shadow
  1150.       BLIT 10,210,95,137,55,100,105:    REM BLIT croc
  1151.       GOSUB 420:                        REM do a display now
  1152.       PAUSE 4
  1153.       CLEAR
  1154.  
  1155.       COPY 3, buff
  1156.       BLIT 5,0,10,220,33,170,120:       REM BLIT hippo
  1157.       BLIT 5,268,0,268,0,52,200:        REM BLIT right curtain
  1158.       BLIT 5,195,0,195,0,60,22:         REM BLIT top curtain
  1159.       BLIT 10,55,190,155,152,30,10:     REM BLIT croc's shadow
  1160.       BLIT 10,210,95,89,52,100,105:     REM BLIT croc
  1161.       GOSUB 420:                        REM do a display now
  1162.       PAUSE 4
  1163.       CLEAR
  1164.  
  1165.       COPY 3, buff
  1166.       BLIT 5,0,10,179,0,170,120:        REM BLIT hippo
  1167.       BLIT 5,268,0,268,0,52,200:        REM BLIT right curtain
  1168.       BLIT 5,195,0,195,0,60,22:         REM BLIT top curtain
  1169.       BLIT 10,55,190,125,152,30,10:     REM BLIT croc's shadow
  1170.       BLIT 10,210,95,60,52,100,105:     REM BLIT croc
  1171.       GOSUB 420:                        REM do a display now
  1172.       PAUSE 4
  1173.       CLEAR
  1174.  
  1175.       COPY 3, buff
  1176.       BLIT 6,0,0,120,-20,120,165:       REM BLIT hippo
  1177.       BLIT 5,195,0,123,0,60,22:         REM BLIT top curtain
  1178.       BLIT 5,195,0,159,0,60,22:         REM BLIT top curtain
  1179.       BLIT 10,55,190,105,152,30,10:     REM BLIT croc's shadow
  1180.       BLIT 10,210,95,40,56,100,105:     REM BLIT croc
  1181.       GOSUB 420:                        REM do a display now
  1182.       PAUSE 4
  1183.       CLEAR
  1184.  
  1185.       COPY 3, buff
  1186.       BLIT 6, 155,10,57,-5,135,165:     REM BLIT hippo
  1187.       BLIT 5,195,0,105,0,60,22:         REM BLIT top curtain
  1188.       BLIT 5,195,0,123,0,60,22:         REM BLIT top curtain
  1189.       BLIT 7,220,90,42,59,100,110:      REM BLIT shaded croc
  1190.       GOSUB 420:                        REM do a display now
  1191.       PAUSE 4
  1192.       CLEAR
  1193.  
  1194.       COPY 3,buff
  1195.       BLIT 7,0,55,38,29,210,136:        REM BLIT hippo
  1196.       GOSUB 420:                        REM do a display now
  1197.       PAUSE 4
  1198.       CLEAR
  1199.  
  1200.       COPY 3,buff
  1201.       BLIT 8,0,50,39,26,165,145:        REM BLIT hippo
  1202.       GOSUB 420:                        REM do a display now
  1203.       PAUSE 4
  1204.       CLEAR
  1205.  
  1206. REM curtain down
  1207.       FOR j = 20 to 200 step 4
  1208.         i = 200 - j
  1209.         COPY 3,buff:                      REM copy background to buff
  1210.         BLIT 8,0,50,39,26,165,145:        REM BLIT hippo
  1211.         IF j = 40
  1212.           BLIT 8,18,18,119,36,34,16:      REM an eye blink
  1213.         ENDIF
  1214.         BLIT 4,0,i,0,0,320,j:             REM BLIT the curtain
  1215.         GOSUB 420:                        REM do a display now
  1216.         PAUSE 1
  1217.         CLEAR
  1218.       NEXT
  1219.  
  1220.       FADE 0,3,5:                    REM fade out on curtain
  1221.       FREE 3
  1222.       FREE 4
  1223.       FREE 4
  1224.       FREE 6
  1225.       FREE 7
  1226.       FREE 8
  1227.       FREE 9
  1228.       FREE 10
  1229.       FREE 21
  1230.       FREE 22
  1231.       FREE 23
  1232.       FREE 24
  1233.  
  1234.       GOTO 1000:                     REM roll the credits
  1235.  
  1236.  
  1237.       END
  1238.  
  1239. 420  DISPLAY buff
  1240.      buff=3-buff
  1241.      BLITDEST buff
  1242.      RETURN
  1243.  
  1244.  
  1245.      END
  1246.  
  1247.  
  1248.  
  1249. 1000 REM the credits role
  1250.  
  1251.       NEW 14,16
  1252.       NEW 15,16
  1253.       COPY 16,14
  1254.       MARGINS 76,246
  1255.       CENTER 1
  1256.       COPY 14,15
  1257.       DISPLAY 15
  1258.       FADE 1,14,3:            REM fade onto the credit card
  1259.       PAUSE 100
  1260.  
  1261.       MOVE 100,50
  1262.       PEN 1,2
  1263.       TEXT "Cast"
  1264.       MOVE 100,100
  1265.       TEXT "The mouse"
  1266.       MOVE 100,110
  1267.       PEN 1,3
  1268.       TEXT "Imma D. Bess"
  1269.       PAUSE 250
  1270.  
  1271.       DISPLAY 14
  1272.       COPY 14,15
  1273.       PEN 1,2
  1274.       MOVE 100,100
  1275.       TEXT "Bubbles"
  1276.       MOVE 100,110
  1277.       PEN 1,3
  1278.       TEXT "Ginger"
  1279.       PAUSE 250
  1280.  
  1281.       DISPLAY 15
  1282.       COPY 15,14
  1283.       MOVE 100,90
  1284.       PEN 1,2
  1285.       TEXT "Tillie"
  1286.       MOVE 100,100
  1287.       TEXT "The Wonder Sheep"
  1288.       MOVE 100,110 
  1289.       PEN 1,3
  1290.       TEXT "as herself"
  1291.       PAUSE 250
  1292.  
  1293.       DISPLAY 14
  1294.       COPY 14,15
  1295.       MOVE 100,100
  1296.       PEN 1,2
  1297.       TEXT "The crocodile dancer"
  1298.       MOVE 100,110
  1299.       PEN 1,3
  1300.       TEXT "Al Airadanceski"
  1301.       PAUSE 250
  1302.  
  1303.       DISPLAY 15
  1304.       COPY 15,14
  1305.       MOVE 100,100
  1306.       PEN 1,2
  1307.       TEXT "The hippo dancer"
  1308.       MOVE 100,110
  1309.       PEN 1,3
  1310.       TEXT "Henrietta Leadbottom"
  1311.       PAUSE 250
  1312.  
  1313.       DISPLAY 14 
  1314.       COPY 14,15
  1315.       MOVE 100,90
  1316.       PEN 1,2
  1317.       TEXT "Images prepared using"
  1318.       PEN 1,3
  1319.       MOVE 100,100
  1320.       TEXT "Digi-View"
  1321.       MOVE 100,110
  1322.       TEXT "Deluxe Paint II"
  1323.       MOVE 100,120
  1324.       TEXT "The Director"
  1325.       PAUSE 400
  1326.  
  1327.       DISPLAY 15
  1328.       COPY 15,14
  1329.       PAUSE 25
  1330.       MOVE 100,90
  1331.       PEN 1,2
  1332.       TEXT "Animation and Cleanup"
  1333.       MOVE 100,100
  1334.       PEN 1,3
  1335.       TEXT "Robert Corns"
  1336.       PAUSE 400
  1337.  
  1338.       DISPLAY 14
  1339.       COPY 14,15
  1340.       PAUSE 25
  1341.       PEN 1,2
  1342.       MOVE 100,90
  1343.       PEN 1,2
  1344.       TEXT "Backgrounds"
  1345.       MOVE 100,100
  1346.       PEN 1,3
  1347.       TEXT "Raymond Saltel"
  1348.       MOVE 100,110
  1349.       TEXT "Robert Corns"
  1350.       PAUSE 400
  1351.  
  1352.       DISPLAY 15
  1353.       COPY 15,14
  1354.       PAUSE 25
  1355.       PEN 1,2
  1356.       MOVE 100,90
  1357.       PEN 1,2
  1358.       TEXT "Camera"
  1359.       MOVE 100,100
  1360.       PEN 1,3
  1361.       TEXT "Chris Shabaga"
  1362.       PAUSE 400
  1363.  
  1364.       DISPLAY 14
  1365.       COPY 14,15
  1366.       PAUSE 25
  1367.       PEN 1,2
  1368.       MOVE 100,60
  1369.       TEXT "This movie is"
  1370.       MOVE 100,70
  1371.       TEXT "freely distributable."
  1372.       MOVE 100,80
  1373.       TEXT "It may not be"
  1374.       MOVE 100,90
  1375.       TEXT "used in whole or in"
  1376.       MOVE 100,100
  1377.       TEXT "part for commercial"
  1378.       MOVE 100,110
  1379.       TEXT "gain without prior"
  1380.       MOVE 100,120
  1381.       TEXT "consent of R. Corns."
  1382.       PAUSE 500
  1383.  
  1384.       DISPLAY 15
  1385.       COPY 15,14
  1386.       PAUSE 25
  1387.       PEN 1,2
  1388.       MOVE 100,80
  1389.       TEXT "R. Corns"
  1390.       MOVE 100,90
  1391.       TEXT "3 Northumbria Bay"
  1392.       MOVE 100,100
  1393.       TEXT "Winnipeg, Manitoba"
  1394.       MOVE 100,110
  1395.       TEXT "Canada, R2J 1Y3"
  1396.       PAUSE 800
  1397.  
  1398.       END
  1399.  
  1400.